vb[紧急！！求助]单元格数值频次与颜色问题？

单元格数值频次与颜色问题？ 如何将一列单元格数值按其出现的频次而显示不同的颜色？即大于平均频次的用红色，小于平均频次的用绿色。求各位高手大侠帮帮忙！ 第一位各数值频次
一位二位三位0 1 2 3 4 5 6 7 8 9
1 8 5 5 1
2 4 1 7 1 1
3 3 8 7 1 1 1
4 7 1 1 1 1 1 1
5 3 2 5 2 1 1 1

没有看明白你的意思，计算频次可以使用COUNTIF函数，设置单元格的颜色则需要使用range的FormatConditions方法，希望下面的代码能够帮助你。
Sub format_moto_cell()
Set m = Workbooks("统计筛选.xls").Sheets("moto_cell")
Set mm = Workbooks("统计筛选.xls").Sheets("motoroad")
'------------------------------------------------------------------
'Workbooks("统计筛选.xls").Sheets("sheet1").Select
i = 1
Do While m.Cells(i, 1) <> ""
i = i + 1
Loop
rowmax = i - 1
On Error Resume Next
For i = 2 To rowmax
m.Cells(i, 121) = m.Cells(i, 120) / m.Cells(i, 117)
findname = Mid(m.Cells(i, 5), 14, 5)
Set fc = mm.Range("d:d").Find(what:=findname)
If Not fc Is Nothing Then
m.Cells(i, 4) = mm.Cells(fc.Row, 5)
m.Cells(i, 7) = mm.Cells(fc.Row, 6)